home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / test1 / test1 next >
Text File  |  1990-04-14  |  365b  |  27 lines
  1.  
  2. north:
  3.     0 speedx' sto
  4.     -3 speedy' sto
  5.     nloop:
  6.     y 20 < east if
  7.     nloop jump
  8. east:
  9.     0 speedy' sto
  10.     3 speedx' sto
  11.     eloop:
  12.     x 280 > south if
  13.     eloop jump
  14. south:
  15.     0 speedx' sto
  16.     3 speedy' sto
  17.     sloop:
  18.     y 280 > west if
  19.     sloop jump
  20. west:
  21.     0 speedy' sto
  22.     -3 speedx' sto
  23.     wloop:
  24.     x 20 < north if
  25.     wloop jump
  26.  
  27.